home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / GEM / AESRESOU.I < prev    next >
Encoding:
Modula Implementation  |  1993-10-29  |  2.8 KB  |  96 lines
  1. IMPLEMENTATION MODULE AESResources;
  2. (*$L-, N+, Y+*)
  3.  
  4.  
  5. (*  Megamax Modula-2 GEM-Library :  Die AES Resourcefunktionen
  6.  *
  7.  *  Autor: Manuel Chakravarty           Erstellt :  05.11.87
  8.  *
  9.  *  Version   2.2     V#0001
  10.  *)
  11.  
  12. (*  05.11.87    | Übernahme von 'GEMBase' und 'GEMExt'
  13.  *  ???????? TT | REF-Parameter
  14.  *  02.04.90    | Anpassung an public arrays
  15.  *)
  16.  
  17.  
  18. FROM    SYSTEM          IMPORT ASSEMBLER, ADDRESS;
  19.  
  20. FROM    GEMGlobals      IMPORT PtrObjTree;
  21.  
  22. IMPORT  GEMShare;
  23.  
  24. (*$I GEMOPS.ICL *)
  25.  
  26.  
  27. PROCEDURE LoadResource(REF pathname:ARRAY OF CHAR);
  28.  
  29. BEGIN
  30.   ASSEMBLER
  31.         JSR     stringIntoCFormat   ; Rückgabe der Str.anf.addr. in D2
  32.         MOVE.L  pubs,A0
  33.         MOVE.L  D2,pubArrays.ADDRIN(A0)
  34.         MOVE.W  #RSRC_LOAD,(A3)+
  35.         JSR     aes_if
  36.         MOVE.L  (A7),A7             ; String wieder vom Stack runterholen
  37.         JSR     testINTOUT0
  38.   END;
  39. END LoadResource;
  40.         
  41. PROCEDURE FreeResource;
  42.  
  43. BEGIN
  44.   ASSEMBLER
  45.     MOVE.W      #RSRC_FREE,(A3)+
  46.     JSR         aes_if
  47.     JSR         testINTOUT0
  48.   END;
  49. END FreeResource;
  50.         
  51. PROCEDURE ResourceAddr(typ:ResourcePart;index:CARDINAL):ADDRESS;
  52.  
  53. BEGIN
  54.   ASSEMBLER
  55.     MOVE.L      pubs, A0
  56.     MOVE.L      our_cb,A1
  57.     MOVE.L      -(A3),pubArrays.aINTIN(A0)
  58.     MOVE.W      #1,cb.A_CONTRL.saddrout(A1)
  59.     MOVE.W      #RSRC_GADDR,(A3)+
  60.     JSR         aes_if
  61.     MOVE.L      pubs,A0
  62.     MOVE.L      our_cb,A1
  63.     CLR.W       cb.A_CONTRL.saddrout(A1)
  64.     MOVE.L      pubArrays.ADDROUT(A0),(A3)+
  65.     JSR         testINTOUT0
  66.   END;
  67. END ResourceAddr;
  68.  
  69. PROCEDURE SetResourceAddr(typ:ResourcePart;index:CARDINAL;objAddr:ADDRESS);
  70.  
  71. BEGIN
  72.   ASSEMBLER
  73.     MOVE.L      pubs,A0
  74.     MOVE.L      -(A3),pubArrays.ADDRIN(A0)
  75.     MOVE.L      -(A3),pubArrays.aINTIN(A0)
  76.     MOVE.W      #RSRC_SADDR,(A3)+
  77.     JSR         aes_if
  78.   END;
  79. END SetResourceAddr;
  80.  
  81. PROCEDURE ConvertCoor(tree:PtrObjTree;index:CARDINAL);
  82.  
  83. BEGIN
  84.   ASSEMBLER
  85.     MOVE.L      pubs,A0
  86.     MOVE.W      -(A3),pubArrays.aINTIN(A0)
  87.     MOVE.L      -(A3),pubArrays.ADDRIN(A0)
  88.     MOVE.W      #RSRC_OBFIX,(A3)+
  89.     JSR         aes_if
  90.   END;
  91. END ConvertCoor;
  92.  
  93.  
  94. END AESResources.
  95. (* $FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$00000874$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65C$FFF8B65CÇ$00000032T...............T.......T.......T.......T.......T.......T.......T.......T.......$000004FE$000004DC$000004C1$00000533$0000058E$000005CC$000005E9$FFEC5578$000006AD$000006D2$000006FE$FFEC5578$000007C6$000007EB$00000816$00000032ÇÇÇ*)
  96.